SCREEN 2,640,200,4,2
WINDOW 2,,,0,2
RANDOMIZE TIMER
DEFLNG a-z
DECLARE FUNCTION opendiskfont&() LIBRARY
LIBRARY "diskfont.library"
LIBRARY "graphics.library"
altfont=PEEKL(WINDOW(8)+52)
neufont$="amber.font"+CHR$(0)
hoehe=19:pref=96 
text(0)=SADD(neufont$)
text(1)=(2^16)*hoehe+pref
font=opendiskfont&(VARPTR(text(0)))
IF font<>0 THEN CALL setfont&(WINDOW(8),font)
FOR i=1 TO 5
REM MENU i,0,1,""
NEXT
MENU ON
FOR i=0 TO 27
PALETTE i,0,0,0
NEXT
OPEN "I",#1,"Held"
WHILE NOT EOF(1)
INPUT #1,spieler$,geld,punkte,mut,waffe$
INPUT #1,kleidung$,geschick,parade,attacke 
INPUT #1,charisma,intelligenz,kraft,lebensenergie,tp 
WEND
CLOSE #1
start:
CALL freesprite (0) 
COLOR 2
1 CLS:LOCATE 3,3
schr$="Du stehst am Rande eines Gebirges, mitten in einem Tal !":sp(schr$):LOCATE 5,3
schr$="Was besonders an diesem Tal auffaellt ist, dass die gesamten":sp(schr$):LOCATE 7,3
schr$="Steine blau sind. Sie haben alle ein verschiedenes blau, so":sp(schr$):LOCATE 9,3
schr$="dass Du von dieser Vielfalt der Farben ueberwaeltigt bist, so":sp(schr$):LOCATE 11,3
schr$="etwas hast Du noch nie gesehen. Wahnsinn!":sp(schr$):LOCATE 14,3:COLOR 3
schr$="Du kannst nur nach Sueden < F1 >":sp(schr$):COLOR 2 
PALETTE 5,0.93,0.2,0
PALETTE 6,0.4,0.6,1
PALETTE 7,0.8,0.4,0.33
PALETTE 2,1,0.87,0.73
PALETTE 3,1,1,0.13
WHILE 1
getkey x
IF x=1 THEN 2
IF x=11 THEN GOSUB dokument:GOTO 1
WEND

2 CLS:LOCATE 3,3
schr$="Du triffst auf einen Pfad, dieser teilt sich in drei Richtungen":sp(schr$):LOCATE 5,3
schr$="es fuehren Wege nach Norden, Westen und nach Sueden. Es ist sehr":sp(schr$):LOCATE 7,3
schr$="sehr schoen ruhig hier, einge Voegel singen und in der Ferne ":sp(schr$):LOCATE 9,3
schr$="vernimmst Du das Lachen von Menschen, es scheint als ob hier":sp(schr$):LOCATE 11,3
schr$="in der Naehe ein Fest gefeiert wird!":sp(schr$):LOCATE 13,3
schr$="Ein alter Mann sitzt am Wegrand und bettelt. Er bittet Dich ":sp(schr$):LOCATE 15,3
schr$="um eine kleine, milde Gabe damit er sich etwas zu essen kaufen ":sp(schr$):LOCATE 17,3
schr$="kann.":sp(schr$):COLOR 3:LOCATE 19,3
schr$="Du gibst ihn eine kleine Spende < F1 >":sp(schr$):LOCATE 20,3
schr$="Du folgst dem Weg nach Norden < F2 >":sp(schr$):LOCATE 21,3
schr$="Du haellst Dich lieber nach Sueden < F3 >":sp(schr$):LOCATE 22,3
schr$="Du gehst nach Westen < F4 >":sp(schr$):COLOR 2
WHILE 1
getkey x
ON x GOTO 100,1,4,3
IF x=11 THEN GOSUB dokument:GOTO 2
WEND

3 CLS:LOCATE 3,3
schr$="Nachdem Du diesem Pfad eine ganze Zeit lang gefolgt bist":sp(schr$):LOCATE 5,3
schr$="kommst Du in einen kleinen Wald, rechts und links des We-":sp(schr$):LOCATE 7,3
schr$="ges stehen Baueme. Es ist sehr romantisch hier! Du denkst":sp(schr$):LOCATE 9,3
schr$="Dir `Hier geh ich mal mit meinem Lebensgefaehrten hin!":sp(schr$):LOCATE 11,3
IF kampf=1 THEN 101
schr$="Ploetzlich springt aus dem Dickicht ein Wegelagerer und ":sp(schr$):LOCATE 13,3
schr$="greift Dich an! Er hat es wohl auf dein Hab und Gut abge-":sp(schr$):LOCATE 15,3
schr$="sehen. Schnell ergreiftst Du deine Waffe und es kommt zum":sp(schr$):LOCATE 17,3
schr$="Kampf!":sp(schr$):SLEEP:SLEEP:SLEEP
monstername$="Wegelagerer":monsterattacke=16:monsterparade=9:monsterlebensenergie=18:monsterpunkte=10
monstertrefferpunkte=1:i=1:kampf=1:GOTO kampf

4 CLS:LOCATE 3,3
schr$="Du folgst dem Weg ein Stueck weiter bis Du an eine Licht-":sp(schr$):LOCATE 5,3
schr$="ung kommst. Rechts und links neben der Lichtung stehen ":sp(schr$):LOCATE 7,3
schr$="einige kleine Buesche mit schoenen roten und gelben Beeren.":sp(schr$):LOCATE 9,3
schr$="Von hier aus kannst Du nach Norden, Sueden und nach Osten!":sp(schr$):LOCATE 12,3:COLOR 3
schr$="Willst Du die Beeren probieren < F1 >":sp(schr$):LOCATE 14,3
schr$="Du gehst nach Norden < F2 >":sp(schr$):LOCATE 16,3
schr$="< F3 > bringt Dich nach Sueden":sp(schr$):LOCATE 18,3
schr$="Mit < F4 > folgst Du dem Weg nach Osten":sp(schr$):COLOR 2
WHILE 1
getkey x
ON x GOTO 103,2,6,7
IF x=11 THEN GOSUB dokument:GOTO 4
WEND

5 CLS:LOCATE 3,3
schr$="Der Untergrund hier wird schon schlammig und feucht, es ":sp(schr$):LOCATE 5,3
schr$="koennte sein, dass Du schon wieder an eine Wasserquelle":sp(schr$):LOCATE 7,3
schr$="kommst. Ueberall um Dich herum sind Moosstellen und Pflanzen":sp(schr$):LOCATE 9,3
schr$="bauten. Aufeinmal erscheint ein Irrlicht vor Dir. Diese er-":sp(schr$):LOCATE 11,3
schr$="scheinung spielt Deinen Sinnen etwas vor und lockt Dich immer":sp(schr$):LOCATE 13,3
schr$="weiter in das totbringende Moor hinein!":sp(schr$):LOCATE 15,3 
x=INT(RND*(20+1)+4)
IF x<intelligenz THEN schr$="Du folgst dem Irrlicht und stuerzt dabei in ein Moorkuhle !":sp(schr$):SLEEP:SLEEP:SLEEP:GOTO schluss
schr$="Durch Deine enorme Intelligenz hast Du es nochmal geschafft ":sp(schr$):LOCATE 17,3
schr$="dem Irrlicht zu entgehen! Schnell rennst Du davon!":sp(schr$):SLEEP:SLEEP:SLEEP:GOTO 6

6 CLS:LOCATE 3,3
schr$="Nach laengerer Wegstrecke durch dichten Wald und Gebuesch":sp(schr$):LOCATE 5,3
schr$="kommst Du an eine Stelle wo sich Dein Pfad teilt.":sp(schr$):LOCATE 7,3
schr$="Du kannst nun nach Suedwesten, Suedosten und natuerlich":sp(schr$):LOCATE 9,3
schr$="auch noch nach Norden.":sp(schr$):LOCATE 12,3:COLOR 3
schr$="Du gehst nach Suedwesten < F1 >":sp(schr$):LOCATE 14,3
schr$="Du kannst auch nach Suedosten < F2 >":sp(schr$):LOCATE 16,3
schr$="Du haellst Dich lieber nach Norden < F3 >":sp(schr$):COLOR 2
WHILE 1
getkey x
ON x GOTO 8,9,4
IF x=11 THEN GOSUB dokument:GOTO 6
WEND

7 CLS:LOCATE 3,3
schr$="Du befindest Dich auf einem Weg, dieser fuehrt in zwei":sp(schr$):LOCATE 5,3
schr$="Richtungen; nach Westen und nach Osten":sp(schr$):LOCATE 7,3
schr$="Nach einiger Zeit kommt ein Fuhrwagen an Dir vorbei. Der":sp(schr$):LOCATE 9,3
schr$="Kutscher fragt ob er Dich in die naechste Stadt mitnehmen":sp(schr$):LOCATE 11,3
schr$="soll?":sp(schr$):LOCATE 14,3:COLOR 3
schr$="Du nimmst das Angebot dankend an < F1 >":sp(schr$):LOCATE 16,3
schr$="Du lehnst ab, fragst aber nach dem Weg < F2 >":sp(schr$):LOCATE 18,3
schr$="Du gehst nach Osten < F3 >":sp(schr$):LOCATE 20,3
schr$="Du haellst Dich lieber nach Westen < F4 >":sp(schr$):COLOR 2
WHILE 1
getkey x
ON x GOTO 104,105,10,4
IF x=11 THEN GOSUB dokument:GOTO 7
WEND
 
8 CLS:LOCATE 3,3
schr$="Du kommst an eine kleine Kate, sie scheint verlassen zu ":sp(schr$):LOCATE 5,3
schr$="seien. Neben der Kate ist eine Menge Holz gestapelt. Die":sp(schr$):LOCATE 7,3
schr$="Kate ist komplett aus Holz gebaut wurden und macht noch":sp(schr$):LOCATE 9,3
schr$="einen ziehmlich guten Eindruck.":sp(schr$):LOCATE 12,3:COLOR 3
schr$="Willst Du die Kate betreten? < F1 >":sp(schr$):LOCATE 14,3
schr$="Gehst Du den Weg wieder zurueck < F2 >":sp(schr$):COLOR 2
WHILE 1
getkey x
ON x GOTO 106,6
IF x=11 THEN GOSUB dokument:GOTO 8
WEND

9 CLS:LOCATE 3,3
schr$="Du stehst auf einem Pfad. Dieser spaltet sich und verlaeuft":sp(schr$):LOCATE 5,3
schr$="in drei Richtungen; nach Nordosten, Sueden und natuerlich ":sp(schr$):LOCATE 7,3
schr$="nach Nordwesten.":sp(schr$):LOCATE 10,3:COLOR 3
schr$="Mit < F1 > gelangst Du nach Nordwesten":sp(schr$):LOCATE 12,3
schr$="Du kannst auch nach Sueden < F2 >":sp(schr$):LOCATE 14,3
schr$="Willst Du nach Nordosten druecke < F3 >":sp(schr$):COLOR 2
WHILE 1
getkey x
ON x GOTO 6,11,10
IF x=11 THEN GOSUB dokument:GOTO 9
WEND

10 CLS:LOCATE 3,3
schr$="Du folgst dem Weg, bis Du schliesslich nach einiger Zeit an":sp(schr$):LOCATE 5,3
schr$="eine Stelle kommst, wo der Weg in drei Richtungen weiterver-":sp(schr$):LOCATE 7,3
schr$="laueft.":sp(schr$):LOCATE 9,3
schr$="Du kannst nach Suedwesten, Osten und nach Westen!":sp(schr$):LOCATE 11,3:COLOR 3
schr$="Du gehst nach Suedwesten < F1 >":sp(schr$):LOCATE 13,3
schr$="Mit < F2 > kommst Du nach Westen":sp(schr$):LOCATE 15,3
schr$="Du kannst auch noch nach Osten < F3 >":sp(schr$):COLOR 2
WHILE 1
getkey x
ON x GOTO 9,7,12
IF x=11 THEN GOSUB dokument:GOTO 10
WEND

11 CLS:LOCATE 3,3
schr$="Als Du eine lange Zeit durch den Wald gelaufen bist knackt ":sp(schr$):LOCATE 5,3
schr$="hinter Dir ein Ast. Du gehst leise weiter und tust so als":sp(schr$):LOCATE 7,3
schr$="ob Du nichts bemerkt haettest. Deine Hand schliesst sich":sp(schr$):LOCATE 9,3
schr$="fester um Deine Waffe und Du bist auf alles gefasst":sp(schr$):LOCATE 11,3
IF ert=1 THEN GOTO 109
schr$="Mit einem Ruck drehst Du dich um und Dir erstarrt beinahe ":sp(schr$):LOCATE 13,3
schr$="das Blut in den Adern. Ein riesiger Waldbaer greift an!":sp(schr$)
SLEEP:SLEEP:SLEEP:monstername$="Waldbaer":monsterattacke=12:monsterparade=10:monstertrefferpunkte=2
monsterlebensenergie=35:monsterpunkte=40:ert=1:i=2:GOTO kampf

12 CLS:LOCATE 3,3
schr$="Als Du lange Zeit durch einen Wald geirrt bist kommst Du auf ":sp(schr$):LOCATE 5,3
schr$="auf eine Lichtung, Du folgst dem Weg, der von der Lichtung ":sp(schr$):LOCATE 7,3
schr$="vortfuehrt und verlaesst den Wald. Ueber Felder und Wiesen":sp(schr$):LOCATE 9,3
schr$="geht der Weg, bis er schliesslich vor den Toren einer Stadt":sp(schr$):LOCATE 11,3
schr$="endet.":sp(schr$):LOCATE 14,3:COLOR 3
schr$="Du kannst die Stadt betreten < F1 >":sp(schr$):LOCATE 16,3
schr$="Du kannst den Weg auch wieder zurueckgehen < F2 >":sp(schr$):COLOR 2
WHILE 1
getkey x
ON x GOTO laden,10
IF x=11 THEN GOSUB dokument:GOTO 12
WEND

13 CLS:LOCATE 3,3
schr$="Du befindest Dich immer noch im Wald und vor Dir teilt sich":sp(schr$):LOCATE 5,3
schr$="der Weg in zwei Richtungen. Du kannst jetzt entweder nach ":sp(schr$):LOCATE 7,3
schr$="Westen oder nach Osten!":sp(schr$):LOCATE 9,3
schr$="Der Wald wird nach Westen immer dichter und nach Osten hin":sp(schr$):LOCATE 11,3
schr$="sieht es auch nicht viel besser aus!":sp(schr$):LOCATE 14,3:COLOR 3
schr$="Willst Du nach Osten < F1 > oder ":sp(schr$):LOCATE 16,3
schr$="willst Du nach Westen < F2 >":sp(schr$):LOCATE 18,3
schr$="Du kannst auch noch nach Norden < F3 >":sp(schr$):COLOR 2
WHILE 1
getkey x
ON x GOTO 15,14,11
IF x=11 THEN GOSUB dokument:GOTO 13
WEND

14 GOTO 4

15 CLS:LOCATE 3,3
schr$="Du gehst den Pfad weiter entlang, aber es ist schrecklich,":sp(schr$):LOCATE 5,3
schr$="denn der Pfad wird immer enger und ueberwachsener so das":sp(schr$):LOCATE 7,3
schr$="Du bald nur noch schwer vorankommst. Links neben Dir stehen":sp(schr$):LOCATE 9,3
schr$="Pflanzen, die Du noch nie in deinem Leben vorher gesehen hast.":sp(schr$):LOCATE 11,3
schr$="Sie haben langen Schlingarme und eine etwas seltsame Bluete,":sp(schr$):LOCATE 13,3
schr$="die beim betrachten eher an eine Reihe Zaehne erinnern!":sp(schr$):LOCATE 16,3:COLOR 3
schr$="Willst Du dem Pfad folgen? < F1 >":sp(schr$):LOCATE 18,3
schr$="Gehst Du lieber wieder zurueck < F2 >":sp(schr$):COLOR 2
WHILE 1
getkey x
ON x GOTO 16,13
IF x=11 THEN GOSUB dokument:GOTO 15
WEND

16 IF tzu=1 THEN 110 
CLS:LOCATE 3,3
schr$="Du folgst also dem ueberwucherten Weg, dieser Stoppt jedoch ":sp(schr$):LOCATE 5,3
schr$="an einer breiten, tiefen Schlucht. Als Du Deinen Weg wieder":sp(schr$):LOCATE 7,3
schr$="zurueck setzten willst, merkst Du wie die Pflanzen mit den ":sp(schr$):LOCATE 9,3
schr$="seltsamen Blueten, mit ihren Schlingarmen Dich angreifen. Oh":sp(schr$):LOCATE 11,3
schr$="Gott, es sind tatsaechlich die totbringenden Teufelspflanzen!":sp(schr$):LOCATE 13,3
schr$="Man sagt, dass sie ein Pferd innerhalb von zwei Minuten":sp(schr$):LOCATE 15,3
schr$="bis auf die Knochen abgefressen haben. Und nun Dich! Musste ":sp(schr$):LOCATE 17,3
schr$="das sein?":sp(schr$):monsterattacke=12:monsterparade=2:monsterlebensenergie=70:monstertrefferpunkte=1
monsterpunkte=20:monstername$="Teufelspflanze":tzu=1:i=3:SLEEP:SLEEP:SLEEP:GOTO kampf

100 CLS:LOCATE 3,3
IF geld<=0 THEN schr$="Du hast ja selber kein Geld !!":sp(schr$):SLEEP:SLEEP:SLEEP:GOTO 2
geld=geld-5:IF geld<0 THEN geld=0
schr$="Du gibst ihm ein bisschen von deinem Geld! Er bedankt sich":sp(schr$):LOCATE 5,3
schr$="und sagt:` Nimm Dich vor dem Schwarzen Keiler in acht, er":sp(schr$):LOCATE 7,3
schr$="ist sehr gefaehrlich!! Geh nicht dort hin, es koennte sein,":sp(schr$):LOCATE 9,3
schr$="dass Du getoetet oder beraubt wirst!!'":sp(schr$):LOCATE 11,3
SLEEP:SLEEP:SLEEP:GOTO 2

101 FOR i=11 TO 23 STEP 2
PRINT SPACE$(50):NEXT
LOCATE 11,3:schr$="Tja jetzt liegt neben Dir ein toter Wegelagerer, na ja wo":sp(schr$):LOCATE 13,3
schr$="warst Du doch gleich stehengeblieben? Ach ja, von hier aus  ":sp(schr$):LOCATE 15,3
schr$="fuehren nur zwei Wege fort; nach Westen und nach Osten!":sp(schr$):LOCATE 18,3:COLOR 3
schr$="Du kannst den toten durchsuchen < F1 >":sp(schr$):LOCATE 20,3
schr$="Du kannst nach Westen < F2 >":sp(schr$):LOCATE 22,3
schr$="Du schlaegst den Weg nach Osten ein < F3 >":sp(schr$):COLOR 2
WHILE 1
getkey x
ON x GOTO 102,5,2
IF x=11 THEN GOSUB dokument:GOTO 3
WEND

102 CLS:LOCATE 3,3
IF such=1 THEN schr$="Du hast schon mal alles durchsucht! Pfui!":sp(schr$):SLEEP:SLEEP:SLEEP:GOTO 3
schr$="Als Du in der blutigen Leiche des Wegelagerers herumsuchst":sp(schr$):LOCATE 5,3
schr$="findest Du 8 Silberstuecke und einen Zettel.":sp(schr$):LOCATE 9,3:COLOR 7
schr$="Auf dem Zettel steht: 500 Silberstuecke der mir - nein Du":sp(schr$):LOCATE 11,3
schr$="glaubst es nicht, da steht Dein Name! - bringt !":sp(schr$):LOCATE 13,3
schr$="Tot oder unlebendig !!":sp(schr$):LOCATE 15,3:COLOR 2
schr$="Deswegen greift Dich also jeder an, schon an der Wasserquelle":sp(schr$):LOCATE 17,3
schr$="und jetzt hier !":sp(schr$):SLEEP:SLEEP:SLEEP:geld=geld+8:such=1:GOTO 3

103 CLS:LOCATE 3,3
IF er=0 THEN lebensenergie=lebensenergie+4
schr$="Du probierts die Berren und schmeckst den suesslichen Saft ":sp(schr$):LOCATE 5,3
schr$="auf Deiner Zunge. Die Beeren sind verflucht gut, so eine Art":sp(schr$):LOCATE 7,3
schr$="von Beeren hast Du noch nie zuvor in Deinem Leben gegessen.":sp(schr$):LOCATE 9,3
SLEEP:SLEEP:SLEEP:er=1:GOTO 4

104 CLS:LOCATE 3,1
schr$="Du steigst auf den Kutschbock und stellst Dich vor. Der Kutscher":sp(schr$):LOCATE 5,1
schr$="meint er waehre `Karbon der Kutschmann' und er wolle nach ":sp(schr$):LOCATE 7,1
schr$="Taris der naechst groesseren Stadt hier im Tal.":sp(schr$):LOCATE 9,1
schr$="Es dauert nicht mehr lange, meint Karbon, bald seid ihr da!":sp(schr$)
laden:
OPEN "Held" FOR OUTPUT AS #1
INPUT #1,spieler$,geld,punkte,mut,waffe$
INPUT #1,kleidung$,geschick,parade,attacke 
INPUT #1,charisma,intelligenz,kraft,lebensenergie,tp 
CLOSE #1
SLEEP:SLEEP:SLEEP
LOAD "tbds5",r

105 CLS:LOCATE 3,1
schr$="Der Kutscher weisst Dir den Weg, indem er meint Du sollst diesen":sp(schr$):LOCATE 5,1
schr$="Pfad nicht verlassen!":sp(schr$):LOCATE 7,1
schr$="Fuer seine Auskunft verlangt er 2 Silberstuecke !":sp(schr$)
IF geld<=0 THEN punkte=punkte-3
geld=geld-2
IF geld<=0 THEN geld=0
SLEEP:SLEEP:SLEEP:GOTO 7
 
106 CLS:LOCATE 3,1
schr$="Die Kate hat ca. eine groesse von 5x6 Metern, mit einem kleinen":sp(schr$):LOCATE 5,1
schr$="Tisch und zwei Stuehlen in der Mitte. Ein Regal und ein Schrank":sp(schr$):LOCATE 7,1
schr$="befinden sich auch noch im Raum. In einem Bett, das neben dem":sp(schr$):LOCATE 9,1
schr$="Kamin steht, liegt ein Mann.":sp(schr$):LOCATE 11,1
schr$="Dieser Blutet stark!":sp(schr$):LOCATE 14,1:COLOR 3
IF tot=1 THEN LOCATE 11,1:schr$="Dieser ist nun leider Tot!":sp(schr$):COLOR 3:LOCATE 14,1
schr$="Willst Du mit ihm sprechen < F1 >":sp(schr$):LOCATE 16,1
schr$="Du kannst die Kate untersuchen < F2 >":sp(schr$):LOCATE 18,1
schr$="Du kannst den Mann angreifen < F3 >":sp(schr$):LOCATE 20,1
schr$="Mit < F4 > verlaesst Du die Kate wieder":sp(schr$):COLOR 2
WHILE 1
getkey x
ON x GOTO 107,108
IF x=3 THEN tot=1:charisma=charisma-2:IF charisma<=0 THEN charisma=0:GOTO 106
IF x=4 THEN 8
IF x=11 THEN GOSUB dokument:GOTO 106
WEND
   
107 CLS:LOCATE 3,3
IF sprach=1 THEN PRINT"Du sprichst wohl oefters mit toten wa?":SLEEP:SLEEP:SLEEP:GOTO 106
schr$="Der Mann spricht in leisen schwer verstaendlichen Worten:":sp(schr$):LOCATE 5,3:COLOR 6
schr$="Der Schwa... Ke..e. - Sie hab.. al.le. was i.h be.it.. ":sp(schr$):LOCATE 7,3
schr$="Bi..e fi..e das Amu..t. der M..ht und sch..t.. e. v.r dem":sp(schr$):LOCATE 9,3
schr$="He..sc.er. de. Du..e.h.it !!!":sp(schr$):LOCATE 13,3:COLOR 2
schr$="Dann stirbt er in Deinen Armen !":sp(schr$):tot=1:sprach=1:SLEEP:SLEEP:SLEEP:GOTO 106

108 CLS:LOCATE 3,3
IF unter=1 THEN PRINT "Eh, wie oft willst die Kate es noch untersuchen ?!":SLEEP:SLEEP:SLEEP:GOTO 106
schr$="Du untersuchst die ganze Kate und findest dabei zwei Ampul-":sp(schr$):LOCATE 5,3
schr$="len und ein Stab. Das Stab ist unwahrscheinlich leicht zu ":sp(schr$):LOCATE 7,3
schr$="fuehren und zerschlaegt Stein. Als Du die Ampullen getrunken":sp(schr$):LOCATE 9,3
schr$="hast merkst Du wie Dich neue Lebensenergie durchstroemmt.":sp(schr$)
lebensenergie=lebensenergie+5:tp=8:waffe$="seltsamer Stab":punkte=punkte+4
unter=1:tot=1:sprach=1:SLEEP:SLEEP:SLEEP:GOTO 106

109 LOCATE 11,3
schr$="Der riesiege tote Baer liegt vor Dir. Froh diesen Kampf noch-":sp(schr$):LOCATE 13,3
schr$="einmal lebend ueberstanden zu haben setzt Du deinen Weg fort!":sp(schr$):LOCATE 16,3:COLOR 3
schr$="Du kannst nach Norden < F1 >":sp(schr$):LOCATE 18,3
schr$="Du kannst auch nach Sueden < F2 >":sp(schr$):COLOR 2
WHILE 1
getkey x
ON x GOTO 9,13
IF x=11 THEN GOSUB dokument:GOTO 11
WEND

110 CLS:LOCATE 3,3
schr$="Froh diesen ungleichen Kampf noch einmal mit ein paar":sp(schr$):LOCATE 5,3
schr$="Wunden ueberlebt zu haben, setzt Du deinen Weg von der ":sp(schr$):LOCATE 7,3
schr$="Schlucht in Richtung Wald wieder fort und hoffst dass ":sp(schr$):LOCATE 9,3
schr$="Dich jetzt diese Pflanzen verschonen werden. ":sp(schr$):SLEEP:SLEEP:SLEEP:SLEEP:GOTO 13

260 COLOR 2
IF i=1 THEN 3
IF i=2 THEN 11
IF i=3 THEN 16
REM ********************
REM ** unterprogramme **
REM ********************

SUB sp(schr$) STATIC
CALL text(WINDOW(8),SADD(schr$),LEN(schr$))
END SUB

SUB getkey (keynumber) STATIC
in$=""
WHILE in$=""
SLEEP
in$=INKEY$
WEND
keynumber=ASC(in$)-128
IF keynumber<1 OR keynumer>10 THEN keynumber=0
END SUB

 
dokument:
CLS:LOCATE 3,3 
PRINT "Name: ";spieler$
LOCATE 5,3:COLOR 6
PRINT "Mut:":COLOR 7:LOCATE 5,25:PRINT mut:COLOR 6:LOCATE 7,3
PRINT "Geschick:":COLOR 7:LOCATE 7,25:PRINT geschick:COLOR 6:LOCATE 9,3
PRINT "Klugheit:":COLOR 7:LOCATE 9,25:PRINT intelligenz:COLOR 6:LOCATE 11,3
PRINT "Kraft:":COLOR 7:LOCATE 11,25:PRINT kraft:COLOR 6:LOCATE 13,3
PRINT "Charisma:":COLOR 7:LOCATE 13,25:PRINT charisma:COLOR 6:LOCATE 15,3
PRINT "Attacke:":COLOR 7:LOCATE 15,25:PRINT attacke:COLOR 6:LOCATE 17,3
PRINT "Parade:":COLOR 7:LOCATE 17,25:PRINT parade 
LOCATE 19,3:COLOR 5
PRINT "Lebensenergie:";TAB(25);lebensenergie
COLOR 6:LOCATE 5,31:PRINT "Waffe:":COLOR 7:LOCATE 5,45:PRINT waffe$
COLOR 6:LOCATE 7,31:PRINT "Ruestung:":COLOR 7:LOCATE 7,45:PRINT  kleidung$
COLOR 6:LOCATE 9,31:PRINT "Vermoegen:":COLOR 7:LOCATE 9,44:PRINT geld
COLOR 6:LOCATE 11,31:PRINT "Punkte:":COLOR 3:LOCATE 11,44:PRINT punkte
COLOR 2
SLEEP:SLEEP
WHILE a$=""
a$=INKEY$
WEND
RETURN

schluss:
CLS:LOCATE 3,3:COLOR 7
PRINT "Hey ";spieler$;", Du solltest auch mal die positive Seite"
PRINT "  dieser Entwickling betrachten: Du hast es hinter Dir,"
PRINT "  niemand kann Dich mehr quaelen und demuetigen..."
PRINT:PRINT"  Du hast trotzdem schon";punkte;" Punkte gemacht. Bravo"
COLOR 3:PRINT:PRINT"Noch ein Spiel?"
PRINT "       < F1 > Na klar, ich bin doch kein looser"
PRINT "       < F2 > So ein scheiss Spiel, schnell weg"
WHILE 1
getkey x
IF x=1 THEN LOAD"TDBS",r
IF x=2 THEN SYSTEM
WEND

an:  
 COLOR 6 
 IF lebensenergie<=0 THEN schluss
  IF monsterlebensenergie<=0 THEN punkte=punkte+monsterpunkte:GOTO 260 
 LOCATE 6,3:PRINT"Lebensenergie: ";lebensenergie
 COLOR 5
 LOCATE 6,35:PRINT "Monsterenergie: ";monsterlebensenergie
RETURN
 
kampf:
CLS:LOCATE 3,3:COLOR 7
PRINT "Name: ";UCASE$(spieler$):LOCATE 3,35:PRINT "Monster: ";monstername$
WHILE 1
duatt:
x=INT(RND*(20+1))
IF x<attacke THEN GOTO monstpa
IF x>attacke THEN GOTO monstatt
dupa:
y=INT(RND*(20+1))
IF y<parade THEN GOSUB an:GOTO duatt
IF y>parade THEN lebensenergie=lebensenergie-INT(RND*(6+1)+monstertrefferpunkte):GOSUB an:GOTO duatt
monstatt:                                                                   
x=INT(RND*(20+1))
IF x<monsterattacke THEN GOSUB an:GOTO dupa
IF x>monsterattacke THEN GOSUB an:GOTO duatt
monstpa:
y=INT(RND*(20+1))
IF y<monsterparade THEN GOSUB an:GOTO monstatt
IF y>monsterparade THEN monsterlebensenergie=monsterlebensenergie-tp:GOSUB an:GOTO monstatt
WEND